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Random Access Memory 
GENERAL PURPOSE DISK CONTROL WITH FORTRAN* 



The original purpose of this program was to exchange computer time 
for more memory storage space. The requirement of the specific pro- 
gram for which this subroutine was developed was the need for 
quick access to varible length records which were to be modified 
on-line and returned to storage. To speed up this process no attempt 
was made in this application to keep track of space no longer used 
or needed and while the data was of varible length, the indices were 
of fixed length and location. The reasoning behind this procedure 
was that any system that can afford the costs of on-line modifica- 
tion (such as with data display devices) must also afford the costs 
of back-up dumps to protect itself from machine failure. 

The characteristics of this subroutine are that it allows the user 
to a] modify the program easily to match any random access memory, 
b] provide the user with the facility to write in either fixed 
length or varible length mode, with or without the user being aware 
of the present state of the files in the random access memory and 

finally c] to provide the user with the facility for detecting 
errors . 

In any general purpose program there is the problem of how much con- 
trol such a program should have and how much latitude is allowed the 
user. This latitude may prove a burden to some users and a 
limit to others. Also, one must weigh the overhead added by a general 
purpose program against the benefits provided to the user. 

Perhaps an example of how this subroutine is used will be most use- 
ful in explaining how it works. A listing of the HISTDATA program 
is attached. The purpose of this program is to build a file 
of data on the RAM device in such a way that it is readily callable 
on the data displays. This calls for opening the previously initiated 
RAH device and testing it to determine that it was properly closed 
when last used. Next, data is collected in fixed blocks, stored, 
and the locations noted in an index. Finally, the last odd sized 
block is stored and the index and count blocks returned to the RAM. 
The RAM is then closed. 



*The work described in this article was completed under a 

errant from the Natl'nnsl Sm'onno Fnnn^atinn 



In the opening, GENRAMOI gets a small block of data (presently set 
at 50 words as developed and stored during initialization) which con- 
tains, a] a flag word, b] number of words available on the RAM de- 
vice (amount allocated), c] number of words used, d] next available 
block and word locations and e] additional space that the systems 
designer may use. The flag word is checked to determine if the RAM 
was properly initalized or closed the last time it was used. 

The flag is returned in the operations parameter as to the status of 
the RAM. The user then may proceed to do the required work or take 
corrective action if so indicated. 

In another example, the user may elect to write in an area of his 
own choosing and if he does, GENRAMOI will test to see that such a 
write will not exceed the available space and that the "Next avail- 
able location address" which it maintains is properly updated, if 
necessary. 

The six operations available to the user are (in the order of their 
use): 

H - Set up new RAM 

2 - Open RAM previously set up or used 
1 - Write on RAM 

5 - Read from RAM 

3 - Close RAM (also does Emergency Close) 

6 - Write on RAM at location indicated by user 

The Call for each operations parameter and the possible flag re- 
sponses and operations of the subroutine are shown in the table 
which is attached to the documentation. 

Again, this program was the result of a situation which required a 
system to receive, store, and retrieve data from four data display 
units simultaneously. Before it was written the disk used required 
a space allocation of 850 of the 1000 available tracks. After this 
program was installed the block and word address, which are returned 
by the subroutine and stored on the disk in fixed format index with 
the #6 function, indicated that only 60 fully packed tracks of data 
were required. 

The listing of GENRAMOI which is presented here is for users without 
BDP units. Oregon State University's CDC 3300 happens to have one 
and we make use of it with a call to a small COMPASS routine for 
moving, blanking and zeroing blocks of memory in core. Listings for 
the BDP user, with or without the COMPASS routines, are also available 

Briefly then, GENRAMOI attempts to be readily adaptable to any RAM 
device, or system using such devices. It attempts to provide the 
user with as much or as little control as they wish to exercise with 
as little overhead as is possible in any abstracted language, such 
as FORTRAN. 



1.0 Identification: 

1 . 1 GENRAMOI 

1.2 R. E. Schoenborn 

1.3 Computer Center, Oregon State University 

1.4 20 June 1967 

2.0 Purpose: 

2.1 The purpose of this program is to provide a general 
subroutine in FORTRAN, to be called by FORTRAN, ti 
allow I/O with any RAM unit of variable length re- 
cords without gaps in the RAM. To provide a use- 
ful subroutine to use, as efficiently as possible, 
all available space provided by a RAM device, 
whether for temporary or permanent storage. Program 
length: approx. 1,000 words plus 2 blocks. 

3 . Usage : 

3.1 Calling Sequence: Call GENRAMOI (Request and re- 
sponse codes, NR of words, list, track #, word #/ 

3.2 Inputs and formats are: (See example) Function Code- 
1 to 6, NR of words to be handled, BUFFER to read/ 
write from, track and word related to flag. 

3.3 Outputs and formats are: (See attached examples) 
Flag returned in first parameter location. 

3.4 Process used on Inputs to get Outputs: 

3.4.1 Output: Data moved from table to physical 
record size area, packed consecutively with 
previous data and written to RAM. 

3.4.2 Input: Physical size records read from RAM 
and requested data unpacked from consecutive 
locations and moved to table of requesting 
program. 

3.5 List of error conditions, messages and operator 
actions: Response codes are returned to the calling 
program as noted on explanation example sheet. 

3.6 List of time constraints and order of operation 
with respect to other programs: User need not be 
concerned with any RAM I/O operation since this pro- 
gram lists for conclusion of operations before RAM 
is used and does not return to user until all oper- 
ations are concluded. 

3.7 List of Equipment (Computer, Peripherals, off-line) 
to be used: Random Access Memory device equipped 
in EQUIP card and parameters described to program 
via COMMON/ DATA/ statements. 

3.8 List of systems, programs S subroutines available 
for use: GENMOVE (See attached listing). 





NFUNT NBLOKSIZ 


NAMBUFR 




Call GENRAMOI(4,,,,) 




Req 
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— 


Resp 
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Resp 
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■-- 
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— 


Resp 


3 

Call GENRAMOI(2, , ,,) 


*■ 1*m 


Req 


2 


■"•■» 


Resp 


1 


l^«— 


Resp 


5 


— — 



NRTRK 



NWDPTR 



CONDITION 



Req 

Resp 

Resp 



Call GENRAMOI(1,1000,NLIST,NTRACK,NRWRD) 
1 1000 NLIST 



1000 



1000 



NLIST 



NLIST 



75 



342 



Set up new RAM 

O.K. 

No go — System not able to 
find RAM track 

Illegal Request 

No action 



Initialize RAM previously 
set up or used 

O.K. 

RAM not originally set up or 
closed after last usage. Next 
available location provided for 
Reqd. write out may write on 
previous records. Write at 
your own risk. Read Req. will 
not go beyond Next Available 
Location. (See Call Option 3) 



Write 1000 Word Buffer from 
NLIST 

O.K. 1000 Words are on RAM 
Starting at Track 75 Word 342 

Blocksize would Exceed available 
RAM size or limit NO Action. 



Figure 1 



NFUNT 



NBLOKSIZ NAMBUFR 



NRTRK 



NWDPTR 



CONDITION 



Call GENRAMOI(5,660,MYBUFFER,819,737) 



Req 

Resp 
Resp 

Resp 

Req 

Req 



Resp 



Req 



660 

660 
660 

660 



MYBUFFR 

MYBUFFR 
MYBUFFR 

MYBUFFR 



Call GENRAMOK3, , , ,) 
3 



Call GENRAMOI(3, *,,**,***) 



* Computed or 
estimated no. 
of words used 



819 

819 
819 

819 



737 

737 
737 

737 



Read and pack 660 word into MYBUFFR 
starting from Track 819 Word 737 

O.K. 

Read Req. goes beyond next avail- 
able location No Action 

No Action, System not able to locate 
RAM Track 

Close Shop — Return next available 
locations to RAM. 



**Next avail- ***Next avail- 
able track, to able word, 



be inserted 



to be inser- 
ted 



Call GENRAMOK6, 4745, INDEX, 2,1) 
6 4745 INDEX 



Resp 


1 


4745 


INDEX 




2 


1 


Resp 


2 


4745 


INDEX 


Figure 2 
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1 



When RAM was not closed after 
a previous usage (program or 
machine failure) this emergency 
closing option may be requested 
Might be called after getting 
a Resp 5 code to an initialize 
Call (#2) . 



O.K. — Goodbye 

Write 4745 word buffer from INDEX 
to RAM starting at Track 2 Word 1. 

O.K. (See Notes on NFUNT = 1) 

No go. (See Notes on NFUNT = 2) 



SURR0IJT1NF GENRAMUI ( NFUNT ,N B LUKS U , NAMBUKk , NKT ,< N ,n* D p T k ) -UTOOOiO 



* * * tqutp RANDOM ACCESS MEMORY (RAM) TO 7 FOR THIS RouTIN- v oot'^ 

■■-.** THfS ROUTINE IS A FILE ASSIGNMENT PROGRAM FOR USE WITH ^ OoO^O 

r * ; J ; A r : ^ p 'OOM ACCESS MEMORY DEVICE. CnANuES TO THt PROGRAM ARE KiTOOOoO 

- i I ! ^NECESSARY ° N CAKDS MARKED**** TO DEFINE MAX NR WORDS KllSoo^O 

■ * - * ON RAM DEVICE AND MAX NR OF WORDS ON A TRACK/SECTOR kI OCuc" 

<_ * * * FII.FS ARE PACKED IN CONSECUTIVE LOCATIONS w/O LuSS OF SPACE j "■ 

' * * * MAXNR = MAX NR OF MACH WDS ON RAM OR SIZE UF ASSIGNED AREA " -UlcuiC-J 

' •»■ * * MTRKSIZ = MAX NR WORDS ON A TRACK OR Sl-CTOR Ki'ouno 

■r « * * inptR = POINTERS NOT READ IN YET r Iinni -n 

r * * * NSTART = TRACK TO START WORKING FROM k\ < 
r * * * 1ST 50 WORDS ARE RESERVED FOR THIS PRObRAM. 16T AVAIL WD . = pi. nIFOuIhu 

r .,, * » RFOUFST IS KiruOl^Q 

: " ; * * NF'INT = 1 TO ADD NEW BLOCK OF DATA TO R A M Kirnulr!- 

r* * * NFUNT = 2 OPEN R A M AND GET PREVIOUS FILE DATA KHOOUO 

, ■- * * n p unt = 3 GL05E S HOP AND SAVE INFO ON RAM, IF NRTRK =0 OR BLK KlTOOloo 

C .* * * NFUNT = 4 START UP A NEW DISC PACK OR RAM KIT00190 

C.ltl N A^RU = 5 RFAD l NBL0KSIZE RECORD' FROM NRTRK AT IMWDPTR INTO kH 00^00 

C * * * NFUNT = 6 USLR CONTROLLED WR 1 TE . . NEXTAVAI L TRACK AND tfORD KIT0022G 

C * * * MODIFIED ONLY IF NECESSARY KITOO^n 

C * * * NBLOKSIZ ■= NR OF WORDS IN/OUT TO/FROM BUFFER = NAMbUrR KIT00/4U 

C * * * NRTRK AND NWDPTR * TRACK AND WORD STARTS LOCATION OF klCOk, KiTQU^O 

r * * * US C R CAN RUT j T JN AjNj TNDFX T p Mp^.^ARY ACTCli U.OTTCT AK„> „• t T . . , . -i .- - 

C * * * SUPPLY THEM FOR NFUNT ^CALL ""' "' ' " "" ^ Kwo^o 

r * * * RESPONSE IS k t, n n 

£ : I : ™ = V^L* =2 IF RAM AREA EXCEEDED =3 IF R E Q NOT KIT0u290 

r * * * COMPLETE OR CORRECT KI - nn ,^ 

C * * * NFUNT =4 TRACK NOT FOUND = 5 NXAVAIL POINTER NOT RETURNED KIT00310 

r * * * TO DISC LAST TIME. KlTOO^n 

r ********************** * * K IT00330 

DIMENSION NAMSUFR<2),NTRBUF(1024,2),INBUF(2) KIT0G340 

GO TO -(900. 40, 10, 600, 942*300, 400, 900) NFUNT+1 KIT00350 

10 MAXNR=1000000 $ MTRKSIZ=1024 i NSTART = 1 * INPTR = M TO**** 

GOTO (11,960) LOCATEF (7. NSTART) KIT0U3/0 

C * * * READ IN NEXT AVAILA LOCTIONS AND INITALIZE sITuJiVO 

IT BUFFER IN (7,1) ( NTRBUF { 1 , 1 » ,NTRBUF (MTRKSIZ,!)) K110U40* 

1100 GOTO (1100,1.110) UNITSTF (7) " ,^ „ 

1110 IF <NTRPUF(5.1> .EG. 4H0K0K ) 1120,1130 K T00420 

1120 NXAVTRK= NTRBUF<1,1) *NXA VWD-NTRBUF ( 2 , 1 ) $INBUF(1)=0 KITCO^O 

JY = 1$ NRLEFT=MTRKSIZ $ MAXNR = NTRBUF (3,1) KI T00440 

NRUSFO = NTRBUF (4,1) Tn< n 

GOTO (1140,060) LOCATEF (7, NSTART) *it'™^* 

C * * *■ RAM IS NOT SET UP RIGHT £ Tnn2?a 

1130 NFUNT = 5 $■ RFTURN ^ { ! . 

1140 NTRBUF (5,1) =0 ^ 

PUFFER OUT (7,l)(NTRBUF(l,l),NTRBUF(MTRKSIZ ,1)) KlTflObO* 

r -* * * SET FLAQ 0# K# " D a 

n MFUNT=1 $ RETURN N 5l 

C * * # SET UP TO MOVE BUFFER AND WRITE TRACKS KITOw— t 



4 - N, PMEED = NBLOKSIZ 
^PTR =i 
ITFMTRK= NRTRK=NXAVTRK 



K i i' O 1 ./ :-"4-() 
K I I Ou "' ^ > J 

ITFM..,n = NWDPTR = NXAVWD -M^'-n 

TF ((NRUSFD+NRNEFD) .GT. MAXNR) 950, ^0 0U; ' VJ 

ii- T FT T T F MFYT A A / A T i a a i r t n .\ r- ■. 



K I i J 



i r^,«^K irj burttKS 'kITOO'jvO 



50 IF (INBUF(l) .EQ. NXAVTRK) 90.52 
52 IF (INBUF(2) .EQ. NXAVTRK) 92»70 
C * * * READ IN PARTLY FILLED TRACK 
70 IF (NXAVWD .EQ. 1) 120*72 
7? GOTO (74*76) JY 
74 JY=2 $ GOTO 78 
76 JY =1 

78 GOTO (80»Q60)LOCATEF (7*NXAVTRK) 
80 PUFFER IN ( 7 * 1 ) ( NTRBUF ( 1 * JY ) »NTRBUF ( MTRKS IZ . JY)) 

INRUF(JY) = ITEMTRK 
88 GOTO (88*120) UNITSTF(7) 
90 JY = 1 $ GOTO 120 
92 JY a 2 
120 NRLEFT = MTRKSIZ - ITEMWD +1 
125 IF (NRNEED .GT.- NRLEFT) 130*160 
C * * * MOVE OUT PART OF BUFFER 

r*130 CALL GFNMOVE ( NAMBUFR ( KPTR ) *NTRBUF( ITEMWD»JY) »NRLEFT) 
130 IP = KPTR $ 'JP= ITEMWD. $ I T=KPTR+NRLEFT-1 $ GOTO 132 
13.1 IP = IP + 1 $ JP = JP + 1 

132 NTRRUF( JP. JY)=NAMBUFR( IP) $ IF (IT-IP) 131»i32 

133 GOTO (133*134) UNITSTF(7) 

134 GOTO (136*900) LOCATEF (7, ITEMTRK) 

136 BUFFER OUT ( 7 » 1 )( NTRBUF ( 1 ,JY ) * NTRBUF ( MTRKS I L » JY ) ) 

INBUF(JY) = ITEMTRK 

GOTO (140*144) JY 
140 JY=2 $ GOTO 150 
144 JY = 1 
150 ITFMTRK = ITEMTRK + 1 

IMRNFFD = NRNEED - NRLEFT 

KPTR = KPTR + NRLEFT 

ITFMWD = 3 

NRLEFT = MTRKSIZ 

GOTO 125 
C*160 CALL GFNMOVF ( NAMBUFR ( KPTR )♦ NTRBUF ( I T EMWD* JY )» NRNEED ) 

160 IP=KPTR $ JP=ITEMWD S I T=KP TR+NRNEED-1 $ GOTO 162. 

161 IP=IP+1- $ JP=JP+1 

162 ■NTRBUF* JP » JY ) =NAMBUFR( IP) 3> IF (IT-IP) 161*163 

163 GOTO (163*164) UNITSTF(7) 

164 GOTO (166*900) LOCATEF ( 7 * I TEMTRK ) 

166 RUFFEROUT (7*1) ( NTRBUF ( 1 ,JY ) .NTRBUF ( MTRKS IZ . J Y ) ) 

INRUF(JY) =' ITEMTRK 
C * * * TEST IF TRACK COUNT SHOULD BE CHANGED 

NXAVWD = NXAVWD + NBLOKSIZ 
170 TF (NXAVWD .LF. MTRKSIZ) 175*172 
172 NXAVTRK=NXAVTRK+1 

NXAVWD=NXAVWD-MTRKSIZ $ GOTO 170 
175 NRUSFD=NRUSED+NBLOKSIZ 
177 GOTO (177*13) UNITSTF(7) 
C * * * READ IN REQUEST =5 
300 NRNEED=NBLOKSIZ 

ITEMWD=NWDPTR+NBL0KSIZ-1 

ITEMTRK=NRTRK $JY=1 

KPTR=1 
^02 IF (ITFMWD .LE. MTRKSIZ) 308*304 
?04 ITFMWD=ITFMWD-MTRKSIZ 

ITFMTRK=ITEMTRK+l $G0 TO 302 
308 IF ( ITFMTRK-NXAVTRK) 316*312*950 
312 IF ( ITFMWD. LT. NXAVWD) 316*950 
316 ITEMTRK = NRTRK $ I TEMWD = NWDPTR 

IF (NRTRK .EQ. INBUF(D) 321*320 
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[-T00762 
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T00860 
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iT00870 


KJ 
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[T0090* 


KJ 


T00901 
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T00902 


KJ 


[T00903 


K J 


LT0091* 
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[T0092* 
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T00940 
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[T00950 
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IT00960 
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[T00990 
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[T01000 
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[ T01020 
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K 
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K 
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IT 01 080 
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IT 01 130 



'4 2 .') 
321 

3?2 
3 24 
328 

C*333 
33^ 

3 34 
335 

33 8 



340 



r* 



342 
3 44 
346 



350 
352 
356 
360 
3 80 
384 
388 

3^0 
C * * 
C * ' * 
C * * 

400 



402 
404 
* * 

406 
410 



412 
* # 

420 
422 
425 
427 

42 8 
430 
433 

43 5 



IF (NRTRK.EQ. I NBUF (2) ) 322*380 
NRBU^l % )Y = V % GOTO 324 
NRRIJF-2 % JY = 1 
NRLFFT=MTRKSIZ+1-ITEMWD 
IF (NRNEED.GT.NRLEFT) 338,333 

CALL GFNMOVE ( NTRBUF ( I TEMWD »NRBUF ) , NAMBUFR ( KPTR ) ,NRNEED ) 
IP=KPTR $ JP=ITEMWD $ I T=KPTR+NRNEED-1 $ GOTO 335 
IP=IP+1 S JP=JP+l 

NAMBUFR( IP )=NTRBUF( JP»NRBUF) $ IF (IT-IP) 334*13 
GO TO 13 

ITEMTRK=I1EMTRK+1 

GOTO (340*960) LOCATEF ( 7 » I TEMTRK ) 

BUFFER IN ( 7,1 ) (NTRBUF( 1 » JY) »NTRBUF(MTRKS1Z» JY ) ) 
CALL GFNMOVF ( NTRBUF ( I TEMWD *NRBUF ), NAMBUFR ( KPTR ) »NRLEFT ) 
IP=K.PTR 1 JP^ITEMWD $ I T = KPTR + NRLEFT-1 £ GOTO 344 
■ IP=IP+1. $ JP = JP+1 

NAMBUFR ( IP)=NTRBUF( JP»NRBUF) $ IF (IT-IP) 342*346 
KPTR=KPTR+NRLEFT 
NRNFFD=NRNFFD-NRLEFT 
I NBUF ( JYJsITPMTRK 
NRLFFT=MTRKSIZ 
GO TO (350*352)JY 
JY=2 $NRBUF=1 $G0 TO 356 
JY=1 $NRBUF=2 
ITEMWD=1 

GO TO (360*328) UNITSTF-(7) 
GO TO (380*384) UNITSTF(7) 
GOTO (388*960) LOCATEF ( 7 » I TEMTRK ) 
BUFFER IN (7,1 ) (NTRBUF( 1,1 ) ,NTRBUF ( MTRKS I Z . 1 ) ) 
INBUF( 1 )=ITEMTRK 
GO TO (390*321) UNITSTF(7) 

* USFR CONTROLLED WRITE (REQ =6). IF WRITE GOES BEYOND 

* NFXTAVAIL TRACK AND WORD THESE WILL BE RESET. OTHERWISE 
*. NOTHING IS AFFECTED. RETURN FLAGS SAME AS REGULAR WRITE. 
LPTR=1 $ NNRTRK=NRTRK 
NRA=NRTRK*MTRKSIZ+NWDPTR+NBLOKSIZ 

NRB=NBLOKSIZ $ NRC=NWDPTR 
IF (NRA .GT. MAXNR) 950,402 

* TEST FOR FULL TRACK OUTPUT 
IF (NRC .EQ. 1 ) 404,420 

IF (NRB .LT. MTRKSIZ) 420,406 

* SET UP AND MOVE FULL TRACK FROM USERS TABLE 
GOTO (410,960) LOCATEF ( 7 ,NNRTRK ) 
NRMOV=LPTR+MTRKSIZ-l 

RUFFE-ROUT (7,1) ( NAMBUFR ( LPTR )* NAMBUFR ( NRMOV ) ) 

LPTR=LPTR+MTRKSIZ $ NNRTRK=NNRTRK+1 

NRB=NRB-MTRKSIZ 

GOTO (412,453) UNITSTF(7) 

* SET UP TO MOVE PARTIAL TRACK. 
IF (INBUF(l) .EQ. NNRTRK) 440,422 
IF (INBUF(2) .EQ. NNRTRK) 442*425 
GOTO (427,428) JY 
JY=2 $ GOTO 430 
JY = 1 

GOTO (433,960) LOCATEF ( 7 , NNRTRK) 

BUFFPRIN (7,1) (NTRBUF(1,JY) , NTRBUF ( MTRKS I Z , JY ) ) 
INBUF( JY)=NNRTRK 
GOTO (435,445) UNITSTF(7) 



•TEST IF TRACK IN CuRc 
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440 JY=1 $ GOTO 445 KIT01660 

**> JY = ? K-IT01670 

445 NRMOV=MTRKSIZ-NRC+l KWOiocu 

IF (NRMOV .GT.NRB) 447,450 KIT016V0 

447 NRMOV = NRB KI.TQ170G 

C*45Q CALL GENMOVE ( NAMBUFR ( LPTR J , NTRBUF ( NRC » JY } * NRMOV ) KIT0171* 

450 IP=LPTR $ JP=NRC i IT=LPTR+NRMOV-l % GOTO 452 KIT01711 

451 IP=IP+1 % JP=JP+] KITQ1712 

452 NTRRUF( JP»JY)=NAMBUFR( IP) $ IF (IT-IP) 451,453 KIT0171'-* 

453 GOTO (454,960) LOCATEF ( 7 »NNRTRK) KIT0172* 

454 RUFFFROUT (7,1) ( NTRBUF « 1 ,JY ), NTRBUF ( MTRKS 11 , J Y ) ) KIT0173* 
NRC=1 $ NRB=NRB-NRMOV KIT01740 
NNRTRK=NNRTRK+1 $ LPTR=LPTR+NRMOV KIT01730 

455 GOTO (455,456) UNITSTF(7) KIT0176* 

456 IF (NRB) 402,460 KIT01770 
C * * * TEST IF NEXTAVAIL INFO NEEDS UPDATING KITQi/oO 

460 NTK=NRTRK $ NWD^NWDPTR+NBLOKS IZ-1 KIT01790 

462 IF (NWD .LT. MTRKSIZ) 470,465 KIT01800 

465 NWO=NWD-MTRKSIZ $ NTK=NTK+1 S> GOTO 462 KITOldlQ 

470 IF (NXAVTRK-NTK) 472,476,13 KIT01820 

472 NXAVTRK=NTK $ GOTO 480 KH0183Q 

476 IF (NWD .LT. NXAVWD) 13,480 KIT01840 

48 NX AVWD = 'NWD+l S GOTO 13 KIT01850 

C * * * ALL DONE - CLEAN UP ... RETURN POINTERS TO DISC KITOI80O 

600 GOTO (600,602) UNITSTF (7) KIT0189* 

60? GOTO (604, 960) LOCATEF (7,NSTART) KIT0190* 

604 BUFFER IN ( 7 , 1 )( NTRBUF ( 1 , 1) , NTRBUF (MTRKSIZ,1)) KIT0191* 

606 GOTO (606,608) UNITSTF(7) KITQ192* 

608 IF (NRTRK .EO. 4H ) 617, 610 KIT01921 

610 IF (NRTRK .EQ.O) 617,. 612 KIT01922 

C REBUILD DISK OPEN AFTER BLOW UPR OR SUMTHIN KITQ1923 

612 NTRBUF (1,1) = NRTRK SNTRBUF ( 2 ♦ 1 ) =Nw'DPTRiNTRBUF ( 4 , 1 ) =IMBLuKS IZ nIT01924 

GOTO 6?0 MT019^ 

617 NTRBUF(l.l) = NXAVTRK $ NTRBUF ( 2 » 1 ) =NXAVWD KIT01930 

MTRBUF(4,1) = NRUSED KIT01940 

6?0 NTRBUF (3,1) = MAXNR KIT019i>0 

6?° NTRRUF(5,1 )= 4H0K0K KIT01960 

GOTO (930,960) LOCATEF ( 7 ,NSTART ) KIT0197* 

930 RUFFFROUT (7,1) ( NTRBUF ( 1 , 1 ) , NTRBUF ( MTRKS IZ , 1 ) ) KIT0198* 

940 GOTO (940,13) UNITSTF(7) KIT0199-* 

942 NTRBUF(ltl) = 1 $ NTRBUF <2>1)=51 KIT02000 

NTRBUF(3,1)=1000000 $ NTRBUF ( 4 , 1 ) =0 $ MTRKSIZ = 1024 KITO**** 

NSTART=1 KITO**** 

GOTO 629 KIT02020 

C * * * INPUT REQUEST ERRONEOUS. RETURN BAD FLAG. KIT02022 

900 NFUN'T= 3 $ RETURN KIT02025 

C * * * ALLOCATED RAM AREA TO SMALL FOR NEXT RECORD, SET FLAG KIT02030 

950 MFUNT= 2 $NRTRK=NWDPTR=0 S RETURN KIT02040 

C * * * CANNOT FIND TRACK, SET FLAG KIT02050 

960 NFUNT=4 $ RETURN KIT02060 

FND KIT02070 



IDENT MOVE 

ENTRY GENFILL,GENMOVE 
* 1/26/68 
********************************* **s***»#»*»*»******^ 

*** HI SPEED XERO FILL, BLANK FILL OR buFFEK MOVE *** 

*** BY USE OF B.D.P. UNIT. ANY PLACE A iX) LOOP Is USED FOR THESE *** 

*** PURPOSES GREATER EFFICIENCY CAN JE LFFLCTtD BY USE OF Trtls ROUT i ML. *** 

*** USE IN- FORTRAN PROG AS FOLLOWS... *** 

*** CALLGFNFILL(8 OR 16* OUFF, NRWORDS) 

*** 8= BLANK FILL 16= ZERO FILL *** 

*** CALL GENMOVE(FROMBUFF t TOBUFFt NRWORDS ) *** 

*** BUFFER ADDRESS MAYBE SUBSCRIPTED. NRWORUS .LE. 1023 *** 

**'* tXAMPLE BLANK A 4000 WORD BUFFER *** 

*** DIMENSION MATRIX (4000) *** 

*** DO 6 I=l»4000,1000 *** 

*** CALL GENFILL ( 1 tMATR I X { I ) , 1000) *** 

*** 6. CONTINUE *** 

GFNMOVF UJP ** 

STI. TEMP, 3 SAVE INDEX 

LDT GFNM0VEs3 

LDA 0,3 GET FROM ADDRESS 

SH<\ 2 CONVERT TO CHAR. ADD. 

ANA.S 77774B MASK IT AND 

SCHA MOVE STORE 

F. '■-' <\ ♦ 5 



> 



7 0; 



S*.ME" SA r H MOVE + 4 

L ! -H,I 2,2 GET NR OF WORDS TO MOVE 

H A 2 

AQA 

ST A MOVE + 2 

INI 3,3 SET INDEX TO RETURN LOCATION 

STI GENFILL,3 

LDA -2.3 GET BUFFER ADD/TO ADD. 

SHA 2 CONVERT TO CHAR* AUU. 

ANA.S 77774B MASK IT 

SCHA MOVE+1 

MOVE MVE MOVE+4,0t0»0,0.0 MOVE OR BLANK/ZERO FILL 

TFMP EMI **>3 

G r MFTLL UJP ** 

STI TEMP, 3 SAVE INDEX 

LDI GENFILL »3 

LDA, I 0,3 GET OPTION. 6=BLANK 16= ZERO 

ENO,S 

UJP SAME 

END 
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MOVE 








ENTRY 


GENMOVE, GENFILL 




* -X # * * # * * tf * fr # # # * * 


X- it X- "X «• H n *i Xr ik 'Ar # -A- it ir V -X- •« 4*- 


K*^****w**it-***********#******#*******#*a-***** 


*-•* fl- 


HI 


SPEED XERO FILL, BLANK FILL 


OR BUFFER MOVE *** 


it x- * 






USF IN FORTRAN PKO< 


G AS FOLLOWS.. • *** 


-:t * * 


rALLG c NFILL(8 OR 16, BUFF, NRwORDS) 


tt## 




8 


= BLANK FILL 16 


= ZERO FILL *** 


■» * # 


CALL GENMOVE (FROMBUFF, TOBUFF 


, NRWORDS) *** 


■«■## 




BUFFER 


ADDRESS MAYBE SUBSC 


RIPTED. NkWOKDS .Lt. 1023 *** 


#*# 




EXAMPLE 


BLANK , 


A 4000 WORD BUFFER *** 


*#* 


ni 


MENS I ON 


MATRIX (4000) 


*** 


■*•*# 




00 S 1 = 


1 ,4000,1000 


#**- 


### 




CALL GENFILL ( 1 .MATRIX U ) •' 


1000) *** 


### 


6 


CONTINUE . 


#** 


######*#■}{•#*■*###■* 


##« x #•-***•«■*###*■#*.#■>;-* 


«-•***■####**•*# *##*##**#*-**•#*#*#***#*■** **#**#*■** 


GENMOVE 


UJP 


-X-3r 








STI 


T EM , 1 


SAVE INDEX 






LDI 


GENMOVE, 1 


LOAD ADDRESS OF PARAMETER LIST 






STI 


GENFILL, 1 


STORE RETURN ADDRESS 






LDAQ 


0»1 


GET ADDRESS OF FROM AND TO ttUPS 






SWA 


LOAD 


STORE LOAD ADDRESS 






SHAQ 


24 








SWA 


STORE 


STORE STORE ADDRESS 






LDA, I 


2,1 


LOAD NO OF WORDS TO MOVE 






TAI 


1 


TRANSFER WORD' COUNT TO INDEX 






I N I 


-lt.l 




LOAD 




LDA 


**»1 


LOAD WORD 


STORE 




STA 
IJD 


*-2.1 


STORE WORD 


OUT 




EMA 


3 








RAD 


GENFILL 


INCREASE RETURN AuDRtSS BY TrlKcc 


T C M 




F <\| I 


**»1 




GFNFILL 


UJP 


#* 








STI 


TEM,1 


SAVE INDEX 






LDI 


GENFILL, 1 


LOAD ADDRESS OF PARAMETER LIST 






LDA 


1»1 


LOAD ADDRESS OF &UFFER AND 






SWA 


STOR 


STORE 






LDQ.I 


0,1 


LOAD FLAG DATA 






LDA, I 


2,1 


LOAD COUNT 






TAI 


1 


TRANSFER COUNT TO INDEX 






INI 


-1,1 


DECREASE BY ONE 






ENA 





LOAD A WITH ZERO 






QSE 


16 


IF FLAG IS 16 STOKt LtKO 






LDA 


= H 


OTHERWISE STORE BLANKS 


S TOR- 




STA 
IJD 
UJP 

END 


*-l,l 
OUT 


STORE BLANKS OR ZEROS 



c * * * * * * * DEMONSTRATION OF PROGRAM USING GEN.RAMOI * * * 

p::o::: ? i:ii histdata- 
c ****,************ * zn RESV *********** 
c * * * * this program is to enter history data to the file"to be 

C * ft ft CALLED FROM DATA DISPLAY UNIT 

^-i A A A A A A A A A A A A A A J. A A A A A A A A A 

f" X «» X IS X X <s 5J 35 X is !» X Ss X «FC *» *» X «» «* 3s «» «» 

INTEGER GENRAMOI,DISKFIX 

COMMON/DATA/ ITOTAL(IO) ,IBILPTCT,IBSORTCT,ITR( 28) >IWD( 26) ,HIGH(17 ) 
IIDAUTH(12),IDS(3, 24), IDELAY(18),IDOT,IDOTT, ITRPT, IWDPT 

DATA (ID0T=4H. . . .),(IDOTT=4H ) 

DIMENSION IPAGE(500),INDEX(50Q),BUF(2Q0) 
EQUIVALENCE (DOT, IDOT ), (TRWDPT, ITRPT) , (BUF, INDEX) 
.1 FORMAT (A8) 

2 FORMAT. C.3A4) 

3 FORMAT (R2,12A4) 

.- ft ft ft ft ft OPEN PREVIOUSLY INITALIZED RAM AND TEST FOR POSSIBLE ERROR 

1000 IF (GENRAMOI ( 2 ,0 , , ,0)-5) 1020,1010 
r * * * * * ram WAS NOT CLOSED LAST TIME. (POSSIBLY DUE TO COMPUTER 
C * *■* * * FAILURE ) RESTART. 

1010 M=DISKFIX(INDEX.) $ GOTO 1000 
r ft ft ft ft ft READ IN BLOCK 
1020 M:- GENRAMOI ( 5 , 200 ,ITOTAL,l , 51) 
IP-1 £ IPW=101 $ IPC=401 
10 READ (20,1) BUF(IP) $ IF (BUF(IP)) 15,70 
15 IPTOP=IFLAG=l $ INDEX(IPC)=0 
20 ITO?=IPTOP+ll $ READ (20,2) (IPAGE(I) ,I=IPTOP ,ITOP) ,ITEM 

It (IPAGE(IPT0P)-4H****) 25,50 
25 IPT0P=IT0P+1 $ ITOP=IPTOP+12 $ READ (20,3) (IPAGE( J) , J=IPTOP ,ITOP) 

IF (IPAGE(IPT0P)-4H00**) 30,60 
30 IPAGE(I?TOP)=AND(ITEM,77770000B)+IPAGE(IPTOP) 

■ IPTOP = I.TOP+l $ IF (ITOP-500) 20,80 
50 Ij (IPTOP-1) 52,58 

52 1PT0P=IPT0P-1 

54 INDEX ( IPC ■)= INDEX ( IPC )+IPTOP 
C * * « * * WRITE LAST NEW PAGE TO RAM. . .GET BLOCK (TRACK) AND WORD 
C - * :< v ft ADDRESS IN ITRPT AND IWDPT 

■ M=GENRAMOI ( l,IPTOP ,IPAGE, ITRPT , IWDPT) 
IF (IFLAG) 57,58 
BUF(IPW)=TRWDPT 

IP = IP+1 $ ir.f-IPW+l $ IPC = IPC+1 $ GOTO 10 
IPAGE(IPTOP)=ITEM $ £OTO 54 
ITOTAL(7)=IP-l 
DO 100 I=IP,100 

BUFF (I)=DOT $ BUF (I+100)=0. $ INDEX(I+400)= o 
CONTINUE 

* * ft FORCED WRITE OF FIXED SIZE INDEX 
M=GENRAMOI ( 6 , 500 , INDEX, ITR( 23 ) ,IWD( 23 ) ) 

'- ft WRITE TOTALS FOR COMMON TABLES USED FOR ALL TYPES OF ACCTS . 
ft * CLOSE RAM (RETURN NEXT AVAILABLE ADDRESS ETC TO STORAGE ON RAM) 
M=GENRAMOI ( 6 , 200 ,ITOTAL,l , 51) $ M=GENRAMOI (3,0,0,0,0) $CALL EXIT 

ft ft ft "• WRITE 1 FULL BUFFER (FIXED SIZE) AS NEW PAGE ... 
8 M=G2NRAM0I ( 1 , 50 ,IPAGE , ITRPT, IWDPT) 

INDEX(IPC)=INDEX(IPC)+500 $ IPTOP=l $ IF (IFLAG) 85,20 
85 BUF(IPW)=TRWDPT $ IFLAG=0 $ GOTO 20 
END 
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